home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / AIncludes / AppleScript.a < prev    next >
Text File  |  1996-05-01  |  6KB  |  203 lines
  1. ;
  2. ;    File:        AppleScript.a
  3. ;
  4. ;    Contains:    AppleScript Specific Interfaces.
  5. ;
  6. ;    Version:    Technology:    AppleScript 1.1
  7. ;                Release:    Universal Interfaces 3.0d3 on Copland DR1
  8. ;
  9. ;    Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10. ;
  11. ;    Bugs?:        If you find a problem with this file, send the file and version
  12. ;                information (from above) and the problem description to:
  13. ;
  14. ;                    Internet:    apple.bugs@applelink.apple.com
  15. ;                    AppleLink:    APPLE.BUGS
  16. ;
  17. ;
  18.     IF &TYPE('__APPLESCRIPT__') = 'UNDEFINED' THEN
  19. __APPLESCRIPT__ SET 1
  20.  
  21.     IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
  22.     include 'Errors.a'
  23.     ENDIF
  24.     IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
  25.     include 'AppleEvents.a'
  26.     ENDIF
  27.     IF &TYPE('__OSA__') = 'UNDEFINED' THEN
  28.     include 'OSA.a'
  29.     ENDIF
  30.     IF &TYPE('__TEXTEDIT__') = 'UNDEFINED' THEN
  31.     include 'TextEdit.a'
  32.     ENDIF
  33.     IF FOR_SYSTEM7_ONLY THEN
  34. ;
  35. ;*************************************************************************
  36. ;    Types and Constants
  37. ;*************************************************************************
  38. ;
  39. ;
  40. ;    The specific type for the AppleScript instance of the
  41. ;    Open Scripting Architecture type.
  42. ;
  43.  
  44. typeAppleScript                    EQU        'ascr'
  45. kAppleScriptSubtype                EQU        'ascr'
  46. typeASStorage                    EQU        'ascr'
  47. ;
  48. ;*************************************************************************
  49. ;    Component Selectors
  50. ;*************************************************************************
  51. ;
  52.  
  53. kASSelectInit                    EQU        $1001
  54. kASSelectSetSourceStyles        EQU        $1002
  55. kASSelectGetSourceStyles        EQU        $1003
  56. kASSelectGetSourceStyleNames    EQU        $1004
  57. ;
  58. ;*************************************************************************
  59. ;    OSAGetScriptInfo Selectors
  60. ;*************************************************************************
  61. ;
  62.  
  63. kASHasOpenHandler                EQU        'hsod'
  64. ;
  65. ;        This selector is used to query a context as to whether it contains
  66. ;        a handler for the kAEOpenDocuments event. This allows "applets" to be 
  67. ;        distinguished from "droplets."  OSAGetScriptInfo returns false if
  68. ;        there is no kAEOpenDocuments handler, and returns the error value 
  69. ;        errOSAInvalidAccess if the input is not a context.
  70. ;
  71. ;
  72. ;*************************************************************************
  73. ;    Initialization
  74. ;*************************************************************************
  75. ;
  76. ;
  77. ; pascal OSAError ASInit(ComponentInstance scriptingComponent, long modeFlags, long minStackSize, long preferredStackSize, long maxStackSize, long minHeapSize, long preferredHeapSize, long maxHeapSize)
  78. ;
  79.     IF ¨ GENERATINGCFM THEN
  80.         Macro
  81.         _ASInit
  82.             move.l              #$001C1001,-(sp)
  83.             moveq               #0,D0
  84.             dc.w                $A82A
  85.         EndM
  86.     ELSE
  87.         IMPORT_CFM_FUNCTION ASInit
  88.     ENDIF
  89.  
  90. ;
  91. ;        ComponentCallNow(kASSelectInit, 28);
  92. ;        This call can be used to explicitly initialize AppleScript.  If it is
  93. ;        not called, the a scripting size resource is looked for and used. If
  94. ;        there is no scripting size resource, then the constants listed below
  95. ;        are used.  If at any stage (the init call, the size resource, the 
  96. ;        defaults) any of these parameters are zero, then parameters from the
  97. ;        next stage are used.  ModeFlags are not currently used.
  98. ;        Errors:
  99. ;        errOSASystemError        initialization failed
  100. ;
  101. ;
  102. ;    These values will be used if ASInit is not called explicitly, or if any
  103. ;    of ASInit's parameters are zero:
  104. ;
  105.  
  106. kASDefaultMinStackSize            EQU        4096
  107. kASDefaultPreferredStackSize    EQU        16384
  108. kASDefaultMaxStackSize            EQU        16384
  109. kASDefaultMinHeapSize            EQU        4096
  110. kASDefaultPreferredHeapSize        EQU        16384
  111. kASDefaultMaxHeapSize            EQU        33554432
  112. ;
  113. ;*************************************************************************
  114. ;    Source Styles
  115. ;*************************************************************************
  116. ;
  117. ;
  118. ; pascal OSAError ASSetSourceStyles(ComponentInstance scriptingComponent, STHandle sourceStyles)
  119. ;
  120.     IF ¨ GENERATINGCFM THEN
  121.         Macro
  122.         _ASSetSourceStyles
  123.             move.l              #$00041002,-(sp)
  124.             moveq               #0,D0
  125.             dc.w                $A82A
  126.         EndM
  127.     ELSE
  128.         IMPORT_CFM_FUNCTION ASSetSourceStyles
  129.     ENDIF
  130.  
  131. ;
  132. ;        ComponentCallNow(kASSelectSetSourceStyles, 4);
  133. ;        Errors:
  134. ;        errOSASystemError        operation failed
  135. ;
  136. ;
  137. ; pascal OSAError ASGetSourceStyles(ComponentInstance scriptingComponent, STHandle *resultingSourceStyles)
  138. ;
  139.     IF ¨ GENERATINGCFM THEN
  140.         Macro
  141.         _ASGetSourceStyles
  142.             move.l              #$00041003,-(sp)
  143.             moveq               #0,D0
  144.             dc.w                $A82A
  145.         EndM
  146.     ELSE
  147.         IMPORT_CFM_FUNCTION ASGetSourceStyles
  148.     ENDIF
  149.  
  150. ;
  151. ;        ComponentCallNow(kASSelectGetSourceStyles, 4);
  152. ;        Errors:
  153. ;        errOSASystemError        operation failed
  154. ;
  155. ;
  156. ; pascal OSAError ASGetSourceStyleNames(ComponentInstance scriptingComponent, long modeFlags, AEDescList *resultingSourceStyleNamesList)
  157. ;
  158.     IF ¨ GENERATINGCFM THEN
  159.         Macro
  160.         _ASGetSourceStyleNames
  161.             move.l              #$00081004,-(sp)
  162.             moveq               #0,D0
  163.             dc.w                $A82A
  164.         EndM
  165.     ELSE
  166.         IMPORT_CFM_FUNCTION ASGetSourceStyleNames
  167.     ENDIF
  168.  
  169. ;
  170. ;        ComponentCallNow(kASSelectGetSourceStyleNames, 8);
  171. ;        This call returns an AEList of styled text descriptors the names of the
  172. ;        source styles in the current dialect.  The order of the names corresponds
  173. ;        to the order of the source style constants, below.  The style of each
  174. ;        name is the same as the styles returned by ASGetSourceStyles.
  175. ;        
  176. ;        Errors:
  177. ;        errOSASystemError        operation failed
  178. ;
  179. ;
  180. ;    Elements of STHandle correspond to following categories of tokens, and
  181. ;    accessed through following index constants:
  182. ;
  183.  
  184. kASSourceStyleUncompiledText    EQU        0
  185. kASSourceStyleNormalText        EQU        1
  186. kASSourceStyleLanguageKeyword    EQU        2
  187. kASSourceStyleApplicationKeyword EQU    3
  188. kASSourceStyleComment            EQU        4
  189. kASSourceStyleLiteral            EQU        5
  190. kASSourceStyleUserSymbol        EQU        6
  191. kASSourceStyleObjectSpecifier    EQU        7
  192. kASNumberOfSourceStyles            EQU        8
  193. ;  Gestalt selectors for AppleScript 
  194.  
  195. gestaltAppleScriptAttr            EQU        'ascr'
  196. gestaltAppleScriptVersion        EQU        'ascv'
  197.  
  198. gestaltAppleScriptPresent        EQU        0
  199. gestaltAppleScriptPowerPCSupport EQU    1
  200.     ENDIF
  201.     ENDIF ; __APPLESCRIPT__ 
  202.  
  203.